home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tf.d64 / screen 40.3.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  53 lines
  1. 0 IFA=1THEN15
  2. 1 POKE53280, 3:POKE53281,14:PRINT"[147][142]";
  3. 2 PRINT"[169]  [169]               "
  4. 3 PRINT" [162] [162]     [146] "
  5. 4 PRINT"      [146][169]       [146] "
  6. 5 PRINT"[162]  [146][162] [146]   [146] "
  7. 6 PRINT"  [146][169]  [146][169]            "
  8. 7 PRINT"[169][169]  [169]  "
  9. 8 PRINT"[169]   [146][184][169]"
  10. 9 PRINT"[169][146][169]    "
  11. 10 PRINT"[169]      [146][162] "
  12. 11 PRINT" [146]  [146][169] [146]  [146][169]"
  13. 12 PRINT"[149]BY"
  14. 13 PRINT"[144]BOBSWIFT"
  15. 14 PRINT"TPUG#507":A=1:LOAD"SCREEN 40.3.ML.D",8,1
  16. 15 GOSUB100
  17. 20 POKE53280, 6:POKE53281, 3:PRINT"[147]";
  18. 21 PRINT"[144]screen40.3"
  19. 22 PRINT"***********"
  20. 23 PRINT"tHISPROGRAMALLOWSYOUTODRAWONTHE"
  21. 24 PRINT"SCREENUSINGALLAVAILABLECOLORS,"
  22. 25 PRINT"CURSORCONTROLS,TEXTANDGRAPHICS"
  23. 26 PRINT"CHARACTERS.tHEPROGRAMEVENSENSESIF"
  24. 27 PRINT"YOUAREINUPPER/LOWERCASEORUPPER"
  25. 28 PRINT"CASE/GRAPHICS,ANDSETSUPTHESCREEN"
  26. 29 PRINT"ACCORDINGLY.wHENYOURSCREENIS"
  27. 30 PRINT"COMPLETE,THEPROGRAMWILLTHENWRITEA"
  28. 31 PRINT"basicPROGRAMTHATWILLRE-DRAWTHELOW"
  29. 32 PRINT"RESOLUTIONSCREEN."
  30. 33 PRINT"tHEMACHINELANGUAGEPROGRAMISRUNIN"
  31. 34 PRINT"THEFOLLOWINGMANNER:"
  32. 35 PRINT"sys49152,ln"
  33. 36 PRINT"WHERElnISTHEFIRSTLINENUMBEROFTHEFINISHEDPROGRAM.tHEMACHINEL";
  34. 37 PRINT"ANGUAGE"
  35. 38 PRINT"PROGRAMCANBERUNOVERANDOVERAGAIN"
  36. 39 PRINT"ASDESIRED."
  37. 40 GOSUB100
  38. 41 POKE53280, 8:POKE53281,11:PRINT"[147]";
  39. 42 PRINT"[144][211][195][210][197][197][206]40.3"
  40. 43 PRINT"***********"
  41. 44 PRINT"[195][207][205][205][193][206][196][211]:"
  42. 45 PRINT"<F1>=CHANGEBORDERCOLOR"
  43. 46 PRINT"<F3>=CHANGEBACKGROUNDCOLOR"
  44. 47 PRINT"<F2>=WRITE[194][193][211][201][195]PROGRAM"
  45. 48 PRINT"<F8>=EXITTO[194][193][211][201][195]"
  46. 49 PRINT"[210][197][205][197][205][194][197][210]:"
  47. 50 PRINT"[211][217][211]49152,[204][206]"
  48. 51 PRINT"WHERE[204][206]ISTHENUMBEROFTHEFIRSTLINEOF[194][193][211][201][195]CODE."
  49. 52 END
  50. 100 PRINT"[144]PRESSANYKEYTOCONTINUE":POKE198,0
  51. 101 GETA$:IFA$=""THEN101
  52. 102 RETURN
  53.